home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 73 / Tiger_Disk_073_20xx_Tiger-Crew-Disk_de_Side_B.d64 / basic aid [td] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  40 lines
  1. 10 ifa=0thena=1:load"bas.aid.msp*",8,1
  2. 20 poke53280,15:poke53281,15:printchr$(14):printchr$(8)
  3. 30 print"[147]"tab(14)"[185][185][185][185][185][185][185][185][185][185][185]"
  4. 40 printtab(14)" [194][193][211][201][195] [193][201][196] ":printtab(14)"[183][183][183][183][183][183][183][183][183][183][183]"
  5. 50 printchr$(17)spc(9)"commodore 64 basic aid"
  6. 60 printchr$(17)spc(12)"by robin franzel"
  7. 70 printchr$(17)spc(5)"adds renum, find, and change"
  8. 80 printchr$(17)spc(8)"to your basic commands"
  9. 90 print"[144][193][206][204][197][201][212][213][206][199] ?"
  10. 100 geta$:ifa$<>"j"anda$<>"n"then100
  11. 110 ifa$="j"thengosub170
  12. 120 print"[147][194][193][211][201][195][160][193][201][196] starten ?"
  13. 130 geta$:ifa$<>"j"anda$<>"n"then130
  14. 140 printchr$(9)
  15. 150 ifa$="n"thenprint"[147][211]tart mit":print"sys50176[145]":sys42115
  16. 160 sys50176:new
  17. 170 print"[147]           [194][193][211][201][195] [193][201][196] [194][197][198][197][200][204][197]  "
  18. 180 print"[210][197][206][213][205] [146]- [198]ile neu numerieren. - [206]ormal:"
  19. 190 print"        [211]tart bei 10 - [193]bstand = 10"
  20. 200 print"[211]yntax : [210][197][206][213][205] (s.o.) oder"
  21. 210 print"         [210][197][206][213][205] <[211]tartzeile>,<[193]bstand>"
  22. 220 print"  (z.[194].: [210][197][206][213][205]100,1)"
  23. 230 print"----------------------------------------";
  24. 240 print"[198][201][206][196] [146]- findet [211]trings (oder [214]ariablen)"
  25. 250 print"       im gesamten [208]rogramm."
  26. 260 print"
  27. 270 [153]"(NULL)yntax : ascright$(NULL)str$ /(NULL)tring/   oder"
  28. 280 [153]"         ascright$(NULL)str$ "[199](34)"(NULL)tring"[199](34)
  29. 290 [153]"  (z.peek.: ascright$(NULL)str$/atn=/ -< ascright$(NULL)str$"[199](34)"haus"[199](34)" etc."
  30. 300 [153]"----------------------------------------";
  31. 310 [153]"lenleft$atn(NULL)chr$val wait- aendert (NULL)trings (oder (NULL)ariab.)"
  32. 320 [153]"         in einen neuen (NULL)tring ((NULL)ariab.)
  33. 330 print"[211]yntax : [195][200][193][206][199][197] /alter [211]tring/neuer [211]tr/";
  34. 340 print"  (z.[194].: [195][200][193][206][199][197]/[193]$/[194]$/ (=[193]$ zu [194]$ aend.)";
  35. 350 print"         ([194]ei [193]nzeige '[213]' = aendern [171][179]"
  36. 360 print"         '[195]' = weiter [171][179] '[211]' = [193]bbruch)"
  37. 370 print"----------------------------------------";
  38. 380 poke198,0:wait198,1:poke198,0
  39. 390 return
  40.